home *** CD-ROM | disk | FTP | other *** search
/ s-gikan2.maizuru-ct.ac.jp / s-gikan2.maizuru-ct.ac.jp.zip / s-gikan2.maizuru-ct.ac.jp / pub / ncvc352a_install.exe / {app} / scripts / add_sequence_number.pl < prev    next >
Perl Script  |  2004-04-02  |  849b  |  39 lines
  1. #! /usr/bin/perl
  2.  
  3. #  NCâfü[â^é╔âVü[âPâôâXö╘ìåé≡òtë┴é╖éΘâXâNâèâvâg            #
  4. #  ö╘ìåé¬ôⁿé┴é─éóéΘìsé╞ôⁿé┴é─éóé╚éóìsé¬ì¼é┤é┴é─éóéΘÅΩìçé═  #
  5. #  æSé─ÉVé╡éóö╘ìåé╔é┬é»é╚é¿é╖                              #
  6.  
  7. ######################################
  8. #ìsö╘ìåé╠îàÉöé≡ôⁿéΩé─é¡é╛é│éóüB
  9. $K= 4;
  10.  
  11. #ìsö╘ìåé╠ɵô¬é╠ö╘ìåé≡ôⁿéΩé─é¡é╛é│éóüB
  12. $lead_number= 1000;
  13.  
  14. #ìsö╘ìåé╠æ¥ë┴Éöé≡ôⁿéΩé─é¡é╛é│éóüB
  15. $increase_number= 10;
  16. ######################################
  17.  
  18. $line_number= $lead_number;
  19.  
  20. $pre_file= $ARGV[0];
  21. $out_file= $ARGV[1];
  22. open(IN,$pre_file);
  23. open(OUT,">$out_file");
  24.  
  25. while(<IN>){
  26.     if(/^([A-NP-Z])[\-\d\.]+/){
  27.         if($1 eq "N"){ $_= $'; }
  28.         $k= length($line_number);
  29.  
  30.         if($k < $K){ $line_number= "0"x($K-$k).$line_number; }
  31.         $_= "N".$line_number.$_;
  32.         $line_number += $increase_number;
  33.     }
  34.     print OUT;
  35. }
  36.  
  37. close(OUT);
  38. close(IN);
  39.